*------------------------------------------------------------------------------*
		*** FIGURE S12a. HISTOGRAMS OF RESIDUALS WITHOUT CONTROLS ***
*------------------------------------------------------------------------------*

use "${tempdata}kreise_complete_all.dta", clear

*------------------------------------------------------------------------------*

***Residuals plot with no controls
qui reg PM10_30km_10ug i.kreis_code i.election_date, vce(cluster kreis_code), if samplePM10_allcontrols == 1
predict res_nc, residuals

*Histogram
histogram res_nc, fcolor(navy) lcolor(ltbluishgray%20) lwidth(vthin) graphregion(fcolor(white))
graph export "${outputs}figure_S12a.pdf", as(pdf) replace

*------------------------------------------------------------------------------*

clear

exit
